home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / vclang11.zip / FACT.COD < prev    next >
Text File  |  1990-08-17  |  395b  |  39 lines
  1. 0 BRN 0 28
  2. 1 BRN 0 2
  3. 2 INT 0 3
  4. 3 LDA 2 -1
  5. 4 LDV
  6. 5 LDI 0 1
  7. 6 EQL
  8. 7 BZE 0 11
  9. 8 LDA 2 -2
  10. 9 LDI 0 1
  11. 10 STO
  12. 11 LDA 2 -1
  13. 12 LDV
  14. 13 LDI 0 1
  15. 14 GTR
  16. 15 BZE 0 27
  17. 16 LDA 2 -2
  18. 17 LDA 2 -1
  19. 18 LDV
  20. 19 INT 0 1
  21. 20 LDA 2 -1
  22. 21 LDV
  23. 22 LDI 0 1
  24. 23 SUB
  25. 24 CAL 1 1
  26. 25 MUL
  27. 26 STO
  28. 27 RET 2 2
  29. 28 INT 0 4
  30. 29 LDA 1 3
  31. 30 INN
  32. 31 INT 0 1
  33. 32 LDA 1 3
  34. 33 LDV
  35. 34 CAL 1 1
  36. 35 PRN
  37. 36 NLN
  38. 37 HLT
  39.